#!perl
use strict;
use warnings;

use MT::Test tests    => 2;
use MT::Bootstrap App => 'MT::Tool';

run_test_tmpl(
    sub { '<$MTSetVar name="foo" value="hello world!"$><MTTestIs value="hello world!"><$MTTestEcho copy_from="foo"$></MTTestIs>' }
);

run_test_tmpl(
    sub {
        <<TMPL;
<\$MTSetVar name="foo" value="hello world!"\$>
<\$MTTestLayout21 copy_from="foo" copy_to="bar"\$>
<MTTestIs test_name="MTInvoke pass_thru" var="foo"><\$MTGetVar name="bar"\$></MTTestIs>
TMPL
    }
);
